home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Form.p < prev    next >
Text File  |  2004-01-31  |  5KB  |  110 lines
  1. pTempVar <- <primitive 110 16 >
  2. <primitive 112 pTempVar 1  " printAt: " \
  3.   #( #[ 16r21 16r0A 16r15 16r72 16r10 16rE1 16r03 16r0E 16r23 16r22 16r81 \
  4.         16r00 16rF2 16r22 16r22 16r0A 16r31 16r51 16rC0 16r0B 16r33 \
  5.         16rF3 16rB3 16rF2 16rF5] \
  6.     #( #printAt:  )) >
  7.  
  8. <primitive 112 pTempVar 2  " rows " \
  9.   #( #[ 16r10 16rA3 16rF3 16rF5] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " row:put: " \
  13.   #( #[ 16r21 16r10 16rA3 16rCC 16rF7 16r0F 16r10 16rA3 16r21 16rC7 16rF7 \
  14.         16r09 16r10 16r30 16r81 16r01 16rF1 16r60 16rF2 16rF9 16r0F \
  15.         16rF2 16r10 16r21 16r22 16rD0 16rF2 16rF5] \
  16.     #( '' #grow:  )) >
  17.  
  18. <primitive 112 pTempVar 4  " row: " \
  19.   #( #[ 16r10 16r21 16rE0 16r02 16r30 16rF3 16rD5 16rF3 16rF5] \
  20.     #( ''  )) >
  21.  
  22. <primitive 112 pTempVar 5  " rotated " \
  23.   #( #[ 16r20 16r80 16r00 16r72 16r41 16rA0 16r71 16r51 16r20 16r80 16r02 \
  24.         16rB2 16rE1 16r04 16r24 16r05 16r3A 16r22 16rB0 16r73 16r51 \
  25.         16r22 16rB2 16rE1 16r05 16r11 16r23 16r22 16r25 16rC1 16r51 \
  26.         16rC0 16r10 16r25 16rB1 16r24 16rE0 16r02 16r33 16rF3 16rD5 \
  27.         16rD0 16rF3 16rB3 16rF2 16r21 16r24 16r23 16r82 16r04 16rF3 \
  28.         16rB3 16rF2 16r21 16rF3 16rF5] \
  29.     #( #rows #Form #columns $  #row:put:  )) >
  30.  
  31. <primitive 112 pTempVar 6  " reversed " \
  32.   #( #[ 16r20 16r80 16r00 16r72 16r41 16rA0 16r71 16r51 16r20 16r80 16r02 \
  33.         16rB2 16rE1 16r04 16r17 16r10 16r24 16rB1 16r73 16r23 16r05 \
  34.         16r3A 16r22 16r23 16rA3 16rC1 16rB0 16r0B 16r12 16r73 16r21 \
  35.         16r24 16r23 16r80 16r03 16r82 16r04 16rF3 16rB3 16rF2 16r21 \
  36.         16rF3 16rF5] \
  37.     #( #columns #Form #rows #reversed #row:put:  )) >
  38.  
  39. <primitive 112 pTempVar 7  " placeForm:at: " \
  40.   #( #[ 16r22 16r0A 16r31 16r73 16r22 16r0A 16r32 16r51 16rC1 16r75 16r21 \
  41.         16rE1 16r07 16r2C 16r20 16r23 16r81 16r00 16r74 16r27 16rA3 \
  42.         16r76 16r24 16r25 16r26 16rC0 16r81 16r01 16r74 16r51 16r26 \
  43.         16rB2 16rE1 16r08 16r09 16r24 16r25 16r28 16rC0 16r27 16r28 \
  44.         16rB1 16rD0 16rF3 16rB3 16rF2 16r20 16r23 16r24 16r82 16r02 \
  45.         16rF2 16r23 16r51 16rC0 16rF1 16r73 16rF3 16rB3 16rF2 16rF5 \
  46.        ] \
  47.     #( #row: #padTo: #row:put:  )) >
  48.  
  49. <primitive 112 pTempVar 8  " overLayForm:at: " \
  50.   #( #[ 16r22 16r0A 16r31 16r73 16r22 16r0A 16r32 16r51 16rC1 16r75 16r21 \
  51.         16rE1 16r07 16r33 16r20 16r23 16r81 16r00 16r74 16r27 16rA3 \
  52.         16r76 16r24 16r25 16r26 16rC0 16r81 16r01 16r74 16r51 16r26 \
  53.         16rB2 16rE1 16r08 16r10 16r27 16r28 16rB1 16r32 16rCA 16rF7 \
  54.         16r08 16r24 16r25 16r28 16rC0 16r27 16r28 16rB1 16rD0 16rF3 \
  55.         16rB3 16rF2 16r20 16r23 16r24 16r82 16r03 16rF2 16r23 16r51 \
  56.         16rC0 16rF1 16r73 16rF3 16rB3 16rF2 16rF5] \
  57.     #( #row: #padTo: $  #row:put:  )) >
  58.  
  59. <primitive 112 pTempVar 9  " next " \
  60.   #( #[ 16r10 16rA7 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 10  " first " \
  64.   #( #[ 16r10 16rA6 16rF3 16rF5] \
  65.     #(  )) >
  66.  
  67. <primitive 112 pTempVar 11  " extent " \
  68.   #( #[ 16r20 16r80 16r00 16r20 16r80 16r01 16r81 16r02 16rF3 16rF5] \
  69.     #( #rows #columns #@  )) >
  70.  
  71. <primitive 112 pTempVar 12  " eraseAt: " \
  72.   #( #[ 16r21 16r0A 16r15 16r72 16r10 16rE1 16r03 16r12 16r05 16r3A 16r23 \
  73.         16rA3 16rB0 16r22 16r81 16r00 16rF2 16r22 16r22 16r0A 16r31 \
  74.         16r51 16rC0 16r0B 16r33 16rF3 16rB3 16rF2 16rF5] \
  75.     #( #printAt:  )) >
  76.  
  77. <primitive 112 pTempVar 13  " display " \
  78.   #( #[ 16r5E 16r80 16r00 16rF2 16r20 16r51 16r51 16r81 16r01 16r81 16r02 \
  79.         16rF2 16r33 16r05 16r14 16r50 16r81 16r01 16r81 16r02 16rF2 \
  80.         16rF5] \
  81.     #( #clearScreen #@ #printAt: '  '  )) >
  82.  
  83. <primitive 112 pTempVar 14  " columns " \
  84.   #( #[ 16r10 16r50 16rE2 16r01 16r06 16r21 16r22 16rA3 16r0C 16r10 16rF3 \
  85.         16rD7 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 15  " clipFrom:to: " \
  89.   #( #[ 16r21 16r0A 16r32 16r51 16rC1 16r76 16r21 16r0A 16r31 16r51 16rC1 \
  90.         16r77 16r22 16r0A 16r32 16r26 16rC1 16r75 16r40 16rA0 16r73 \
  91.         16r21 16r0A 16r31 16r22 16r0A 16r31 16rB2 16rE1 16r09 16r27 \
  92.         16r05 16r3A 16r25 16rB0 16r74 16r20 16r29 16r81 16r01 16r78 \
  93.         16r51 16r25 16rB2 16rE1 16r0A 16r0D 16r24 16r2A 16r28 16r26 \
  94.         16r2A 16rC0 16rE0 16r02 16r32 16rF3 16rD5 16rD0 16rF3 16rB3 \
  95.         16rF2 16r23 16r29 16r27 16rC1 16r24 16r82 16r03 16rF3 16rB3 \
  96.         16rF2 16r23 16rF3 16rF5] \
  97.     #( #Form #row: $  #row:put:  )) >
  98.  
  99. <primitive 112 pTempVar 16  " new " \
  100.   #( #[ 16r05 16r1E 16r50 16rB0 16r60 16rF5] \
  101.     #(  )) >
  102.  
  103. <primitive 98 #Form \
  104.   <primitive 97 #Form #Object #AmigaTalk:General/Form.st \
  105.    #(  #text ) \
  106.    #( #printAt: #rows #row:put: #row: #rotated #reversed #placeForm:at:  \
  107.        #overLayForm:at: #next #first #extent #eraseAt: #display #columns #clipFrom:to: #new  ) \
  108.   pTempVar 11 13 > #ordinary >
  109.  
  110.